home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / communic / qmodempr / script.pak / 1UP.SCR next >
Encoding:
Text File  |  1994-03-01  |  1.9 KB  |  48 lines
  1. ' This script is used to simplify the Upload Process.
  2. ' It prompts for a single filename, wildcards allowed, and
  3. ' invokes the selected protocol with Zmodem being the default.
  4. '
  5. ' Add this to your Macro Bar with these settings:
  6. '
  7. '     Command: @SCRIPT 1UP.SCR     Desc: 1Up!
  8. '
  9.  
  10. Dialog SimpleUpload 36, 45, 194, 130
  11.   caption "One-Up!"
  12.   groupbox "File to send (wildcards allowed)", -1, 8, 8, 180, 30
  13.   filename as edittext 100, 12, 21, 170, 12
  14.   groupbox "Protocol", -1, 8, 44, 180, 55
  15.   pASCII     as radiobutton "ASCII",      101,  15, 55, 50, 12
  16.   pXmodem    as radiobutton "Xmodem",     102,  70, 55, 50, 12
  17.   pXmodemC   as radiobutton "XmodemCRC",  103, 125, 55, 50, 12
  18.   pXmodem1K  as radiobutton "Xmodem1K",   104,  15, 70, 50, 12
  19.   pXmodem1KG as radiobutton "Xmodem1KG",  105,  70, 70, 50, 12
  20.   pYmodem    as radiobutton "Ymodem",     106, 125, 70, 50, 12
  21.   pYmodemG   as radiobutton "YmodemG",    107,  15, 85, 50, 12
  22.   pZmodem    as radiobutton "Zmodem",     108,  70, 85, 50, 12
  23.   pKermit    as radiobutton "Kermit",     109, 125, 85, 50, 12
  24.   groupbox "", -1, 8,105, 180, 1
  25.   defpushbutton "OK", IDOK, 33, 110, 50, 14
  26.   pushbutton "Cancel", IDCANCEL, 103, 110, 50, 14
  27. end dialog
  28.  
  29. dim su as SimpleUpload
  30. su.filename = "c:\qmwin\"   'default pathname
  31. su.pZmodem = 1              'default protocol
  32. do
  33.   if dialogbox(su) <> IDOK then
  34.     exit do
  35.   end if
  36.   if su.pASCII      then Upload su.filename, ASCII
  37.   if su.pXmodem     then Upload su.filename, Xmodem
  38.   if su.pXmodemC    then Upload su.filename, XmodemCRC
  39.   if su.pXmodem1K   then Upload su.filename, Xmodem1K
  40.   if su.pXmodem1KG  then Upload su.filename, Xmodem1KG
  41.   if su.pYmodem     then Upload su.filename, Ymodem
  42.   if su.pYmodemG    then Upload su.filename, YmodemG
  43.   if su.pZmodem     then Upload su.filename, Zmodem
  44.   if su.pKermit     then Upload su.filename, Kermit
  45.   end
  46. loop
  47.  
  48.